﻿Public Class ScheduleFormDetails

    Private Sub DbiLabelInbound_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DbiLabelInbound.MouseDown
        'Start the drag drop action
        Me.DoDragDrop(New DataObject(DataFormats.Text, "Inbound"), DragDropEffects.All)
    End Sub

    Private Sub DbiLabelOutbound_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DbiLabelOutbound.MouseDown
        'Start the drag drop action
        Me.DoDragDrop(New DataObject(DataFormats.Text, "Outbound"), DragDropEffects.All)
    End Sub
End Class
